home *** CD-ROM | disk | FTP | other *** search
- Option Explicit
-
- Sub GetErrorMsg (nErr As Integer)
- Dim ssError As snapshot
- Dim sMsg$
-
- sMsg = "Select ErrMsg from ErrorMessage where ErrID = " & Str$(nErr)
- Set ssError = TheDatabase.CreateSnapshot(sMsg)
-
- sMsg = "Error Number: " & Str$(nErr) & ". "
- If Not ssError.EOF Then
- sMsg = sMsg & RTrim$(ssError("ErrMsg"))
- End If
-
- Beep
- MsgBox sMsg, MB_ICONSTOP + MB_OK, TheAppTitle
-
- End Sub
-
-